(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     20979,        522]
NotebookOptionsPosition[     20414,        500]
NotebookOutlinePosition[     20751,        515]
CellTagsIndexPosition[     20708,        512]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
The idea of that we calculate for all possible combination of A/B values, \
check for all the possible orientations of \[Theta] and \[Phi], use the data \
to interpolate the final result.In this case, it is a problem of 3 D \
interpolation.It is expected that this interpolation will be done using \
python, where the data manipulation is expected to be more flexible, for \
numeric case.\
\>", "Text",
 CellChangeTimes->{{3.4972023381615257`*^9, 3.497202364198082*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Etot", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "A"}], " ", 
     RowBox[{"Cos", "[", "\[Phi]", "]"}]}], "-", " ", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"\[Theta]", "-", "\[Phi]"}], "]"}], "^", "2"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Etotp", " ", "=", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"Etot", ",", "\[Phi]"}], "]"}], "//", "Simplify"}]}], 
  ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Aout", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tout", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Pout", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Eout", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Alist", "=", 
   RowBox[{"Range", "[", 
    RowBox[{"0.04", ",", "4", ",", "0.04"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"thetalist", "=", 
   RowBox[{"Range", "[", 
    RowBox[{"0", ",", 
     RowBox[{"\[Pi]", "/", "2"}], ",", 
     RowBox[{"\[Pi]", "/", "50"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"Length", "[", "thetalist", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Aout", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"Aout", ",", "0.0"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Tout", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"Tout", ",", 
       RowBox[{"N", "[", 
        RowBox[{"thetalist", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Pout", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"Pout", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"N", "[", 
          RowBox[{"thetalist", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
         RowBox[{"N", "[", 
          RowBox[{"\[Pi]", "+", 
           RowBox[{"thetalist", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Eout", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"Eout", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.0"}], ",", 
         RowBox[{"-", "1.0"}], ",", "0.0"}], "}"}]}], "]"}]}]}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"Length", "[", "Alist", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", 
     RowBox[{"j", "\[LessEqual]", 
      RowBox[{"Length", "[", "thetalist", "]"}]}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"thetalist", "[", 
          RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", 
         RowBox[{"\[Pi]", "/", "2"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Alist", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "<", "2"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Aout", "=", 
            RowBox[{"Append", "[", 
             RowBox[{"Aout", ",", 
              RowBox[{"Alist", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Tout", "=", 
            RowBox[{"Append", "[", 
             RowBox[{"Tout", ",", 
              RowBox[{"N", "[", 
               RowBox[{"thetalist", "[", 
                RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Pout", "=", 
            RowBox[{"Append", "[", 
             RowBox[{"Pout", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"ArcCos", "[", 
                  FractionBox[
                   RowBox[{"Alist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "2"], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{
                  RowBox[{"2", "\[Pi]"}], "-", 
                  RowBox[{"ArcCos", "[", 
                   FractionBox[
                    RowBox[{"Alist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "2"], "]"}]}], "]"}]}], 
               "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Eout", "=", 
            RowBox[{"Append", "[", 
             RowBox[{"Eout", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "1"}], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{"Alist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "2"], "4"]}], ",", 
                RowBox[{
                 RowBox[{"-", "1"}], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{"Alist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "2"], "4"]}], ",", 
                RowBox[{"-", 
                 RowBox[{"Alist", "[", 
                  RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}]}], "]"}]}], ";"}],
           ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Aout", "=", 
            RowBox[{"Append", "[", 
             RowBox[{"Aout", ",", 
              RowBox[{"Alist", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Tout", "=", 
            RowBox[{"Append", "[", 
             RowBox[{"Tout", ",", 
              RowBox[{"N", "[", 
               RowBox[{"thetalist", "[", 
                RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Pout", "=", 
            RowBox[{"Append", "[", 
             RowBox[{"Pout", ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Eout", "=", 
            RowBox[{"Append", "[", 
             RowBox[{"Eout", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"Alist", "[", 
                  RowBox[{"[", "i", "]"}], "]"}]}], ",", 
                RowBox[{"-", 
                 RowBox[{"Alist", "[", 
                  RowBox[{"[", "i", "]"}], "]"}]}], ",", 
                RowBox[{"-", 
                 RowBox[{"Alist", "[", 
                  RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}]}], "]"}]}], 
           ";"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
        
        RowBox[{"(*", 
         RowBox[{"evaluation", " ", "of", " ", "normal", " ", "case"}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"eptest", "=", 
          RowBox[{"Evaluate", "[", 
           RowBox[{"Etotp", "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"A", "\[Rule]", 
               RowBox[{"Alist", "[", 
                RowBox[{"[", "i", "]"}], "]"}]}], ",", 
              RowBox[{"\[Theta]", "\[Rule]", 
               RowBox[{"N", "[", 
                RowBox[{"thetalist", "[", 
                 RowBox[{"[", "j", "]"}], "]"}], "]"}]}]}], "}"}]}], "]"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"etest", "=", 
          RowBox[{"Evaluate", "[", 
           RowBox[{"Etot", "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"A", "\[Rule]", 
               RowBox[{"Alist", "[", 
                RowBox[{"[", "i", "]"}], "]"}]}], ",", 
              RowBox[{"\[Theta]", "\[Rule]", 
               RowBox[{"N", "[", 
                RowBox[{"thetalist", "[", 
                 RowBox[{"[", "j", "]"}], "]"}], "]"}]}]}], "}"}]}], "]"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"roots", "=", 
          RowBox[{"\[Phi]", "/.", 
           RowBox[{"NSolve", "[", 
            RowBox[{
             RowBox[{"eptest", "\[Equal]", "0"}], ",", "\[Phi]"}], "]"}]}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"realroots", "=", 
          RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"k", "=", "0"}], ",", 
           RowBox[{"k", "\[LessEqual]", 
            RowBox[{"Length", "[", "roots", "]"}]}], ",", 
           RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Head", "[", 
               RowBox[{"roots", "[", 
                RowBox[{"[", "k", "]"}], "]"}], "]"}], "\[Equal]", "Real"}], 
             ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"realroots", "=", 
               RowBox[{"Append", "[", 
                RowBox[{"realroots", ",", 
                 RowBox[{"roots", "[", 
                  RowBox[{"[", "k", "]"}], "]"}]}], "]"}]}], ";"}]}], 
            "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";",
          "\[IndentingNewLine]", 
         RowBox[{"realroots", "=", 
          RowBox[{"realroots", "-", 
           RowBox[{
            RowBox[{"Floor", "[", 
             RowBox[{"realroots", "/", 
              RowBox[{"(", 
               RowBox[{"2", "\[Pi]"}], ")"}]}], "]"}], "*", "2", 
            "\[Pi]"}]}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"realroots", "=", 
          RowBox[{"Union", "[", "realroots", "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"energytest", "=", 
          RowBox[{"Evaluate", "[", 
           RowBox[{"etest", "/.", 
            RowBox[{"\[Phi]", "->", "realroots"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Length", "[", "realroots", "]"}], "\[Equal]", "2"}], ",",
            "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"minEnergy", "=", 
             RowBox[{"Part", "[", 
              RowBox[{
               RowBox[{"Sort", "[", "energytest", "]"}], ",", "1"}], "]"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"maxEnergy", "=", 
             RowBox[{"Part", "[", 
              RowBox[{
               RowBox[{"Sort", "[", "energytest", "]"}], ",", "2"}], "]"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"energyout", "=", 
             RowBox[{"{", 
              RowBox[{"minEnergy", ",", "minEnergy", ",", "maxEnergy"}], 
              "}"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"index", "=", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"energytest", ",", "minEnergy"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"posout", "=", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"realroots", "[", 
                RowBox[{"[", "index", "]"}], "]"}], ",", 
               RowBox[{"realroots", "[", 
                RowBox[{"[", "index", "]"}], "]"}]}], "}"}]}], ";"}], ",", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"energyout", "=", 
             RowBox[{"Part", "[", 
              RowBox[{
               RowBox[{"Sort", "[", "energytest", "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"index1", "=", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"energytest", ",", 
                 RowBox[{"energyout", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"index2", "=", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"energytest", ",", 
                 RowBox[{"energyout", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"posout", "=", 
             RowBox[{"Part", "[", 
              RowBox[{"realroots", ",", 
               RowBox[{"{", 
                RowBox[{"index1", ",", "index2"}], "}"}]}], "]"}]}], ";"}]}], 
          "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"Eout", "=", 
          RowBox[{"Append", "[", 
           RowBox[{"Eout", ",", "energyout"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Pout", "=", 
          RowBox[{"Append", "[", 
           RowBox[{"Pout", ",", "posout"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Aout", "=", 
          RowBox[{"Append", "[", 
           RowBox[{"Aout", ",", 
            RowBox[{"Alist", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Tout", "=", 
          RowBox[{"Append", "[", 
           RowBox[{"Tout", ",", 
            RowBox[{"N", "[", 
             RowBox[{"thetalist", "[", 
              RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "]"}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Pout", "=", 
   RowBox[{"Transpose", "[", "Pout", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Eout", "=", 
   RowBox[{"Transpose", "[", "Eout", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"out", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"Aout", ",", "Tout", ",", 
      RowBox[{"Pout", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"Pout", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"Eout", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"Eout", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"Eout", "[", 
       RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SW.dat\>\"", ",", "out"}], "]"}]}], "Input",
 CellChangeTimes->{{3.496674616390625*^9, 3.496674700875*^9}, 
   3.49668506021875*^9, {3.496685699671875*^9, 3.49668570275*^9}, {
   3.4967398285803423`*^9, 3.4967398303227577`*^9}, {3.4967422140452347`*^9, 
   3.4967422238454247`*^9}, {3.496742284988702*^9, 3.496742303443747*^9}, {
   3.496742399808934*^9, 3.496742440645125*^9}, {3.496742572835889*^9, 
   3.496742591217695*^9}, {3.4967426331428747`*^9, 3.49674267341212*^9}, {
   3.4967427130469093`*^9, 3.4967427142330713`*^9}, {3.496744890145946*^9, 
   3.496744905208721*^9}, {3.4967449463001757`*^9, 3.496745022187601*^9}, {
   3.496765586767103*^9, 3.496765604144671*^9}, {3.496765670418412*^9, 
   3.496765709657353*^9}, {3.4967658378742113`*^9, 3.496765841152918*^9}, {
   3.49676591641812*^9, 3.496765951464188*^9}, {3.49676601013554*^9, 
   3.49676602833718*^9}, {3.496766161439102*^9, 3.496766180452182*^9}, {
   3.496766425264679*^9, 3.496766426763287*^9}, {3.496766500145644*^9, 
   3.4967665341564417`*^9}, {3.496766618359734*^9, 3.496766639590686*^9}, {
   3.496766719381216*^9, 3.4967667699820147`*^9}, {3.49676687397097*^9, 
   3.496766879001429*^9}, {3.496766967807954*^9, 3.496766974757846*^9}, {
   3.49676703846052*^9, 3.496767046302416*^9}, {3.496767076442631*^9, 
   3.496767081857922*^9}, {3.49676716089135*^9, 3.496767174893094*^9}, {
   3.496767467630684*^9, 3.496767475414695*^9}, 3.496767562799315*^9, {
   3.496767703792728*^9, 3.4967677044807796`*^9}, {3.496767854570581*^9, 
   3.496767911338196*^9}, {3.496767978365301*^9, 3.49676801314182*^9}, {
   3.496768169742467*^9, 3.496768196849379*^9}, {3.496768860170038*^9, 
   3.496768882474576*^9}, {3.496769088690372*^9, 3.496769111093855*^9}, {
   3.496769222171844*^9, 3.496769230980197*^9}, {3.4967693726936283`*^9, 
   3.496769375614194*^9}, {3.496769611798367*^9, 3.496769612066771*^9}, 
   3.496776424643897*^9, {3.49682566164185*^9, 3.49682566495271*^9}, {
   3.51759566951014*^9, 3.517595691970559*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \
used by \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Solve\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\", so some solutions may not be found; \
use Reduce for complete solution information.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \
ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.517595763358*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \
used by \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Solve\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\", so some solutions may not be found; \
use Reduce for complete solution information.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \
ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.51759576343225*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \
used by \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Solve\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\", so some solutions may not be found; \
use Reduce for complete solution information.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \
ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.517595763460577*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Solve :: \\\"ifun\\\"\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will be suppressed \
during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.517595763489162*^9}],

Cell[BoxData["\<\"SW.dat\"\>"], "Output",
 CellChangeTimes->{3.517595792307971*^9}]
}, Open  ]]
},
WindowSize->{640, 655},
WindowMargins->{{Automatic, 255}, {46, Automatic}},
FrontEndVersion->"7.0 for Linux x86 (64-bit) (October 28, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 480, 8, 91, "Text"],
Cell[1028, 30, 441, 15, 55, "Input"],
Cell[CellGroupData[{
Cell[1494, 49, 16191, 390, 1626, "Input"],
Cell[17688, 441, 661, 12, 65, "Message"],
Cell[18352, 455, 663, 12, 65, "Message"],
Cell[19018, 469, 664, 12, 65, "Message"],
Cell[19685, 483, 627, 11, 45, "Message"],
Cell[20315, 496, 83, 1, 31, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
